home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Video Toaster 4.2
/
Video Toaster v4.2.iso
/
arexx
/
cg
/
randomattrib.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1995-12-28
|
999b
|
35 lines
/* RandomAttrib.rexx -- An Attribute Setter */
/* By Bob Caron User ©1994 NewTek, Inc. */
call random(,,time('s'))
call addlib(CG_AREXX,0)
alpha=REQ_ASK("Randomize Alpha?")
if alpha=0 then alpha=255
else alpha=1
CALL SET_CHAR(RGBA,random(0,255),random(0,255),random(0,255),random(alpha,255))
CALL SET_CHAR(FILL,'0')
if random(0,1) = 1 then do
CALL SET_CHAR(FILL,'1')
CALL SET_CHAR(BOTR,random(0,255),random(0,255),random(0,255),random(alpha,255))
end
CALL SET_BORD(TOPR,random(0,255),random(0,255),random(0,255),random(alpha,255))
CALL SET_BORD(FILL,'0')
if random(0,1) = 1 then do
CALL SET_BORD(FILL,'1')
CALL SET_BORD(BOTR,random(0,255),random(0,255),random(0,255),random(alpha,255))
end
CALL SET_BORD(SIZE,random(0,3))
CALL SET_BORD(PRIO,random(0,1))
CALL SET_SHAD(TYPE,random(0,2))
CALL SET_SHAD(SPOT,random(0,7))
CALL SET_SHAD(PRIO,random(0,1))
CALL SET_SHAD(SIZE,random(1,5))
CALL SET_SHAD(TOPR,random(0,255),random(0,255),random(0,255),random(alpha,255))